Last update: NA … Source: India fuel dashboard - github

Delhi

Row

Today’s Petrol price

valueBox(petrol_latest$Delhi,icon = "fa-gas-pump")

99.11

Today’s Diesel price

valueBox(diesel_latest$Delhi,icon = "fa-gas-pump",color = "success")

90.42

Row

Petrol Price

Petrol$Date <- as.Date(Petrol$Date)



Pd <- ggplot(Petrol, aes(x = Date, y = Delhi)) +            # Draw ggplot2 plot
  geom_area( fill="#69b3a2", alpha=0.4) +
  geom_line(color="#69b3a2", size=2) +
  ylab("Price")+
  ggtitle("Surging Petrol price in Delhi")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Pd
## Warning: Removed 5 rows containing missing values (position_stack).
## Warning: Removed 5 row(s) containing missing values (geom_path).

Diesel price

Diesel$Date <- as.Date(Diesel$Date)


Dd <- ggplot(Diesel, aes(x = Date, y = Delhi)) +            # Draw ggplot2 plot
  geom_area( fill="#FFA500", alpha=0.4) +
  geom_line(color="#FFA500", size=2) +
  ylab("Price")+
  ggtitle("Surging Diesel price in Delhi")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Dd
## Warning: Removed 5 rows containing missing values (position_stack).
## Warning: Removed 5 row(s) containing missing values (geom_path).

Mumbai

Row

Today’s Petrol price

valueBox(petrol_latest$Mumbai,icon = "fa-gas-pump")

113.88

Today’s Diesel price

valueBox(diesel_latest$Mumbai,icon = "fa-gas-pump",color = "success")

98.13

Row

Petrol Price

Petrol$Date <- as.Date(Petrol$Date)

Mp <- ggplot(Petrol, aes(x = Date, y = Mumbai)) +            # Draw ggplot2 plot
  geom_area( fill="#69b3a2", alpha=0.4) +
  geom_line(color="#69b3a2", size=2) +
  ylab("Price")+
  ggtitle("Surging Petrol price in Mumbai")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Mp
## Warning: Removed 5 rows containing missing values (position_stack).
## Warning: Removed 5 row(s) containing missing values (geom_path).

Diesel price

Diesel$Date <- as.Date(Diesel$Date)

Md <- ggplot(Diesel, aes(x = Date, y = Mumbai)) +            # Draw ggplot2 plot
  geom_area( fill="#FFA500", alpha=0.4) +
  geom_line(color="#FFA500", size=2) +
  ylab("Price")+
  ggtitle("Surging Diesel price in Mumbai")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Md
## Warning: Removed 5 rows containing missing values (position_stack).
## Warning: Removed 5 row(s) containing missing values (geom_path).

Chennai

Row

Today’s Petrol price

valueBox(petrol_latest$Chennai,icon = "fa-gas-pump")

104.9

Today’s Diesel price

valueBox(diesel_latest$Chennai,icon = "fa-gas-pump",color = "success")

95

Row

Petrol Price

Petrol$Date <- as.Date(Petrol$Date)

Cp <- ggplot(Petrol, aes(x = Date, y = Chennai)) +            # Draw ggplot2 plot
  geom_area( fill="#69b3a2", alpha=0.4) +
  geom_line(color="#69b3a2", size=2) +
  ylab("Price")+
  ggtitle("Surging Petrol price in Chennai")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Cp
## Warning: Removed 5 rows containing missing values (position_stack).
## Warning: Removed 5 row(s) containing missing values (geom_path).

Diesel price

Diesel$Date <- as.Date(Diesel$Date)

Cd <- ggplot(Diesel, aes(x = Date, y = Chennai)) +            # Draw ggplot2 plot
  geom_area( fill="#FFA500", alpha=0.4) +
  geom_line(color="#FFA500", size=2) +
  ylab("Price")+
  ggtitle("Surging Diesel price in Chennai")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Cd
## Warning: Removed 5 rows containing missing values (position_stack).
## Warning: Removed 5 row(s) containing missing values (geom_path).

Kolkata

Row

Today’s Petrol price

valueBox(petrol_latest$Kolkata,icon = "fa-gas-pump")

108.53

Today’s Diesel price

valueBox(diesel_latest$Kolkata,icon = "fa-gas-pump",color = "success")

93.57

Row

Petrol Price

Petrol$Date <- as.Date(Petrol$Date)

Kp <- ggplot(Petrol, aes(x = Date, y = Kolkata)) +            # Draw ggplot2 plot
  geom_area( fill="#69b3a2", alpha=0.4) +
  geom_line(color="#69b3a2", size=2) +
  ylab("Price")+
  ggtitle("Surging Petrol price in Kolkata")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Kp
## Warning: Removed 5 rows containing missing values (position_stack).
## Warning: Removed 5 row(s) containing missing values (geom_path).

Diesel price

Diesel$Date <- as.Date(Diesel$Date)

Kd <- ggplot(Diesel, aes(x = Date, y = Kolkata)) +            # Draw ggplot2 plot
  geom_area( fill="#FFA500", alpha=0.4) +
  geom_line(color="#FFA500", size=2) +
  ylab("Price")+
  ggtitle("Surging Diesel price in Kolkata")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Kd
## Warning: Removed 5 rows containing missing values (position_stack).
## Warning: Removed 5 row(s) containing missing values (geom_path).